home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  339b  |  17 lines
  1. 10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
  2. 20 T=VAL(MID$(D$,1,2))
  3. 30 M=VAL(MID$(D$,3,2))
  4. 40 J=VAL(MID$(D$,5))
  5. 50 IF M<1 OR M>12 THEN RUN
  6. 60 IF T<1 OR T>31 THEN RUN
  7. 70 GOSUB1000
  8. 80 PRINT "JULIANISCH: "JD
  9. 90 END
  10. 1000 REM KALENDER -> JULIANISCH
  11. 1010 IF M>2 THEN M=M-3:GOTO 1030
  12. 1020 M=M+9:J=J-1
  13. 1030 JH=INT(J/100):JA=J-100*JH
  14. 1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
  15. 1050 JD=JD+INT((153*M+2)/5)+T
  16. 1060 RETURN
  17.